home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / wsc4d21.zip / MIO16.PAS < prev    next >
Pascal/Delphi Source File  |  1997-06-05  |  838b  |  33 lines
  1. unit mio;
  2.  
  3. interface
  4.  
  5. const
  6.  
  7.    SEND_TO  = 1;
  8.    WAIT_FOR = 2;
  9.    QUIET    = 3;
  10.    HANGUP   = 4;
  11.  
  12.    MIO_IDLE = 0;
  13.    MIO_RUNNING = -1;
  14.  
  15. function mioSendTo(Port:Integer; Pace:LongInt; Text:PChar) : Integer;
  16. function mioQuiet(Port:Integer; QuietTime:LongInt) : Integer;
  17. function mioWaitFor(Port:Integer; MaxTime:LongInt; Text:PChar ) : Integer;
  18. function mioResult(Port:Integer) : Integer;
  19. function mioDriver(Port:Integer) : Integer;
  20. function mioBreak(Port:Integer) : Integer;
  21. function mioDebug(Handle:Integer) : Integer;
  22.  
  23. implementation
  24.  
  25. function mioSendTo; external 'MIO16';
  26. function mioQuiet; external 'MIO16';
  27. function mioWaitFor; external 'MIO16';
  28. function mioResult; external 'MIO16';
  29. function mioBreak; external 'MIO16';
  30. function mioDriver; external 'MIO16';
  31. function mioDebug; external 'MIO16';
  32. end.
  33.